home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / MYMUD21.ZIP / MMUD21.ZIP / SOURCE / 11_STUFF.ZIP / ML_IO.ZIP / KEYCOMP.PAS < prev    next >
Pascal/Delphi Source File  |  1992-09-05  |  672b  |  30 lines
  1. Program KeyComp;
  2. Uses Dos,Foreign;
  3.  
  4. Var FileName : ComStr;
  5.  
  6. Begin
  7. WriteLn('LiveSystems Keyboard definition compiler version 1.0');
  8. WriteLn;
  9. If ParamCount=0
  10.    Then Begin
  11.         WriteLn('Usage: KeyComp <fileName>');
  12.         WriteLn;
  13.         WriteLn(' Where FileName has the extention .DEF');
  14.         Halt;
  15.         End;
  16.  
  17. FileName:=ParamStr(1);
  18. If Pos('.',FileName)>0
  19.    Then Begin
  20.         While FileName[Length(FileName)]<>'.' Do
  21.           Dec(FileName[0]);
  22.         Dec(FileName[0]);
  23.         End;
  24.  
  25. WriteLn('Converting ',FileName,'.DEF');
  26. WriteLn('Into       ',FileName,'.LKY');
  27. ReadKeyboardDefinition(FileName);
  28. SaveDefinition(FileName);
  29. End.
  30.